home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / biz / dbase / db.lha / Examples / ARexxDemos / multiview.db < prev    next >
Text File  |  1996-01-01  |  318b  |  17 lines
  1. /* Rexxprogram for db that passes data in the current field to multiview */
  2. /* By David Ekholm */
  3.  
  4. Options Results
  5. BLOCKINPUT
  6. GETFIELD
  7. file = RESULT
  8. IF RC = "0" THEN DO
  9.     IF EXISTS(file) THEN
  10.         ADDRESS COMMAND "run >nil: Multiview " '"'file'"'
  11.     ELSE
  12.         OKAY1 "`"file"' does not exist."
  13. END
  14. FREEINPUT
  15.  
  16.  
  17.